home *** CD-ROM | disk | FTP | other *** search
- %BEGIN Text
- /textY 0 def
- /textX 0 def
- /extraSpaceWidth 0 def
- /extraCharWidth 0 def
- /typeSize 12 def
- /Chicago findfont
- typeSize scalefont
- setfont
- /xscale 1 def
- /yscale 1 def
- /macBold false def
- /macItalic false def
- /macUnderline false def
- /macOutline false def
- /macShadow false def
- /macCondense false def
- /macExtend false def
- /textMode /srcCopy def
- /suppressText false def
- /textCenterX 0 def
- /textCenterY 0 def
- /textAngle 0 def
- /rotateText false def
- /drawChar
- {
- textMatrix setmatrix
- show
- originalMatrix setmatrix
- }
- def
- /pathNonZero
- {
- pathbbox
- /top exch def
- pop
- /bottom exch def
- pop
-
- top bottom sub 0 eq
- {false}
- {true}
- ifelse
- }
- def
- /PICTshow
- {
- /theString exch def
- /y exch def
- /x exch def
- /extend 0 def % extra space to widen each char
- /charString 1 string def % holds char as a string
- suppressText false eq
- {
- gsave
- rotateText true eq
- { textAngle rotate }
- if
-
- /originalMatrix matrix currentmatrix def
- /textMatrix
- xscale yscale matrix currentmatrix scale
- dup 3
- matrix currentmatrix 3 get
- -1 mul put
- macItalic true eq
- { dup 2 .5 put }
- if
- def
- macBold true eq
- {/extend extend 1.5 add def }
- if
-
- macOutline true eq
- { /extend extend 2 add def }
- if
-
- macExtend true eq
- {/extend extend 2 add def }
- if
-
- macShadow true eq
- {/extend extend 2 add def }
- if
-
- macCondense true eq
- {/extend extend 2 sub def }
- if
- foregroundColor useColor
- theString
- {
- /theChar exch def
- charString 0 theChar put
- /charWidth charString stringwidth pop def % pop y dimen
- 32 theChar eq
- { /extraSpace extraSpaceWidth def }
- { /extraSpace extraCharWidth def }
- ifelse
- macShadow true eq
- {
- x 2 add y 2 add moveto % move down & right to draw shadow
- charString drawChar
- macBold true eq
- {
- x 3 add y 2 add moveto
- charString drawChar
- }
- if
- }
- if
- /boldstep 0 def
- macBold true eq {2} {1} ifelse % loop 2ce if bold is on.
- {
- macShadow true eq macOutline true eq or
- {
- newpath
- x boldstep add y moveto
- textMatrix setmatrix
- charString true charpath
- originalMatrix setmatrix
- pathNonZero true eq
- {
- 1 setgray
- fill
- foregroundColor useColor
-
- newpath
- x boldstep add y moveto
- textMatrix setmatrix
- charString false charpath
- originalMatrix setmatrix
- 0 setlinewidth
- stroke
- }
- {
- x boldstep add y moveto
- charString drawChar
- }
- ifelse
- }
- {
- x boldstep add y moveto
- charString drawChar
- }
- ifelse
- /boldstep boldstep 1 add def
- }
- repeat
- originalMatrix setmatrix
-
- macUnderline true eq
- {
- x y 1 add moveto
- x charWidth add extraSpace add extend add y 1 add lineto
- 1 setlinewidth
- stroke
- }
- if
- /x x charWidth add extraSpace extend add add def
- }
- forall
- grestore
- }
- if % if we were to suppress writing text out.
- }
- def
- /txFont
- {
- /family exch def
- family type /nametype eq
- {
- family findfont
- }
- {
- family 134 eq
- {/Linguistics findfont}
- {family 149 eq
- {/NewOrleans findfont}
- {family 64 eq
- {/Davids findfont}
- {/Chicago findfont} % default font
- ifelse}
- ifelse}
- ifelse
- }
- ifelse
-
- typeSize scalefont
- setfont
- }
- def
- /txFace
- {
- /styleArray exch def
- /macBold false def
- /macItalic false def
- /macUnderline false def
- /macOutline false def
- /macShadow false def
- /macCondense false def
- /macExtend false def
- styleArray
- {
- /style exch def
- style /bold eq {/macBold true def}
- {style /italic eq {/macItalic true def}
- {style /underline eq {/macUnderline true def}
- {style /outline eq {/macOutline true def}
- {style /shadow eq {/macShadow true def}
- {style /condense eq {/macCondense true def}
- {style /extend eq {/macExtend true def}
- { % Actually, this is an error condition of some sort
- } ifelse
- } ifelse
- } ifelse
- } ifelse
- } ifelse
- } ifelse
- } ifelse
- }
- forall
- }
- def
- /txMode
- { /textMode exch def }
- def
- /spExtra
- {/extraSpaceWidth exch def }
- def
- /txSize
- {
- /newTypeSize exch def
- currentfont
- newTypeSize typeSize div scalefont
- setfont
- /typeSize newTypeSize def
- }
- def
- /txRatio
- {
- /yscale exch def
- /xscale exch def
- }
- def
- /chExtra
- {pop}
- def
- /longText
- {
- /theString exch def
- /textY exch def
- /textX exch def
-
- textX textY theString PICTshow
- }
- def
- /DHText
- {
- /theString exch def
- /deltaX exch def
-
- deltaX textX add textY theString longText
- }
- def
- /DVText
- {
- /theString exch def
- /deltaY exch def
- textX deltaY textY add theString longText
- }
- def
- /DHDVText
- {
- /theString exch def
- /deltaY exch def
- /deltaX exch def
-
- deltaX textX add deltaY textY add theString longText
- }
- def
- /fontName
- { txFont }
- def
- /lineJustify
- {
- pop
- /extraCharWidth exch def
- }
- def
- %END Text
-